home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / WV Paint Shop Pro 7 Clear.xpl < prev    next >
Encoding:
XSetup plugin  |  2002-04-06  |  1.5 KB  |  63 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Other Programs\Jasc\Paint Shop Pro 7"
  5. "NAME"="Recent files"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Clear recent files list"
  9. "DESCRIPTION 1"="If you don't want other people to see the files you have open, click on the button."
  10. "DESCRIPTION 3"="An evaluation version is available at http://www.jasc.com."
  11. "AUTHOR"="FORMATMAN"
  12. "CONTACTURL"="http://formatland.free.fr/"
  13. "COPYRIGHT"="Copyright ⌐ Formatman"
  14. "COMMENT 1"="For more informations, go to http://www.xsetup.net"
  15. "COMMENT 2"="Created by VORMELKER Werner"
  16. "COMMENT 3"="http://formatland.free.fr/"
  17. "COMMENT 4"="formatman@wanadoo.fr"
  18.  
  19. sP="HKCU\Software\JASC\Paint Shop Pro 7\Recent File List\"
  20.  
  21.  
  22. Sub Plugin_Initialize 
  23.   If RegPathExists(sP)=false then
  24.      Disable()
  25.   end if 
  26. End Sub
  27.  
  28. Sub Plugin_CheckData(ElementIndex)
  29. End Sub
  30.  
  31. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  32.  if ElementIndex=1 then     
  33.     for l=1 to 30
  34.         s="file" & l
  35.         v=RegReadValue(sP & s)
  36.         
  37.         If IsEmpty(v)=false then
  38.            Call RegDeleteValue(sP & S)
  39.         end if
  40.     Next
  41.  
  42.     Call MsgInformation("List cleared !")
  43.  end if
  44.  
  45.  
  46.  if ElementIndex=2 then 
  47.     'i=RegEnumValues(sp2a)
  48.     'for l=1 to i
  49.     '    Call RegDeleteValue(sp2a & RegEnumElement(l))
  50.     'Next
  51.     'Call RegWriteValue(sp2b,0,2)
  52.  
  53.  
  54.     'Call MsgInformation("Liste effacΘe !")
  55.  end if
  56.  
  57.  
  58.  
  59. End Sub
  60.  
  61. Sub Plugin_Terminate 
  62. End Sub
  63.